Imports System.Globalization
Imports BruTile

Public Class UnProjected
    Inherits TileSchema
    Public Sub New()
        Dim resolutions__1 As Double() = {0.703125, 0.3515625, 0.17578125, 0.087890625, 0.0439453125, 0.02197265625, _
            0.010986328125, 0.0054931640625, 0.00274658203125, 0.001373291015625, 0.0006866455078125, 0.00034332275390625, _
            0.000171661376953125, 0.0000858306884765625, 0.0000429153442382813}

        Dim count = 0
        For Each resolution As Double In resolutions__1
            Dim res As New Resolution
            res.Id = count.ToString(CultureInfo.InvariantCulture)
            res.UnitsPerPixel = resolution
            Resolutions.Add(res)
            count += 1
        Next
        Height = 256
        Width = 256
        Extent = New Extent(-180, -90, 180, 90)
        OriginX = -180
        OriginY = -90
        Name = "UnProjected"
        Format = "image/png"
        Axis = AxisDirection.Normal
        Srs = "EPSG:4326"
    End Sub
End Class
